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Descubra onde se escondem aquelas 
linhas mal escritas. Interrogue o 
programa marginal que não funciona, 
Localize erro por erro com a ajuda 
do nosso programa rastreador. 


É praticamente impossível digitar um 
programa longo — tal como o Assem- 
bler — sem cometer alguns erros. Mes- 
mo que tenhamos conferido com todo 
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o cuidado uma listagem, às vezes surgem 
erros que desafiam até programadores 
experientes, se não forem investigados 
com um recurso especial. 

Para prosseguir no curso de lingua- 
gem de máquina, é essencial que seu As- 
sembler funcione. Por isso, antes de 
mais nada, você deve encontrar todos os 
erros nele existentes. INPUT traz para 
os usuários do Spectrum de 48 K de me- 
mória um programa rastreador que se- 
rá muito útil na busca dos erros even- 
tualmente cometidos na digitação do 
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Assembler. O TRS-Color, o TRS-BO, o 
MSX e o Apple possuem programas ras- 
treadores embutidos — são as funções 
TRACE, TRACE ON ou TRON. 

O programa “TRACE” que apresen- 
tamos a seguir vem tanto em Assembly 
como em código hexadecimal. Assim, se 
seu Assembler não está funcionando, 
você pode usar o monitor da página 92 
para entrar os códigos. Caso funcione 
bem, monte o programa TRACE com 
sua ajuda e grave-o em fita, para usá-lo 
em outros programas que contenham er- 
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ros. Se você não sabe se o Assembler es- 
tá funcionando, use a montagem deste 
programa rastreador como um teste. 


COMO USAR O PROGRAMA | 





Quando um programa BASIC tem 
um erro, seu micro geralmente informa 
em que linha está o problema. Isso po- 
de ser suficiente para corrigir um erro 
em um programa simples e curto. Po- 
rém, quando se trata de um programa 
maior e mais complicado, a mensagem 
de erro muitas vezes é inútil. Uma linha 
sempre executada com sucesso pode, de 
repente, causar um erro porque em ou- 
tro local do programa uma variável que 
ela usa assumiu um valor inadequado. 

O programa rastreador aqui apresen- 
tado simplesmente escreve na tela o nú- 
mero da linha que está sendo executa- 
da. Ao contrário das instruções TRA- 
CE dos demais micros, nosso programa 
também escreve o código interno do co- 
mando BASIC usado no momento. 

Para facilitar o uso do programa, 
convém ter à mão uma listagem do pro- 
grama, seja ela sua ou de INPUT. Vo- 
cê poderá, assim, acompanhar o progra- 
ma passo a passo, até atingir o ponto 
onde ocorreu o erro. Ficará mais fácil 
também descobrir os valores das variá- 
veis e, ainda, se as condições dos 
IF... THEN estão sendo satisfeitas e se 
os GOTO estão indo para as linhas 
certas. 





FUNCIONAMENTO DO TRACE 


Um programa TRACE é um tipo 
muito especial de rotina em linguagem 
de máquina, pois funciona simultanea- 
mente a outro programa — o seu, que 
está em BASIC. Normalmente, não se 
pode rodar dois programas ao mesmo 
tempo no computador. O TRACE, na 
verdade, não constitui uma exceção: ele 
não roda ao mesmo tempo que o pro- 
grama em BASIC, mas utiliza um atri- 
buto do microprocessador que é a intêr- 
rupção. 

Rotinas que empregam esse artifício 
interrompem o programa principal a ca- 
da 20 milésimos de segundo — no Spec- 
trum — e são executadas na fração de 
segundo que dura essa interrupção. De- 
pois disso, o programa principal conti- 
nua como se nada tivesse ocorrido, até 
a interrupção seguinte. 

Programas BASIC são sempre inter- 
rompidos a cada 0,02 segundo enquan- 
to estão funcionando, para que o com- 
putador verifique se alguma tecla foi 
pressionada. Rotinas que usam interrup- 


ções aproveitam-se desse padrão. A in- 
terrupção pode não ocorrer, tal como 
foi explicada, se houver algo conectado 
na expansão da memória. 

Se uma linha BASIC for muito lon- 
ga, ela poderá ser interrompida mais de 
uma vez durante sua execução. Nesse ca- 
so, o TRACE fornecerá o mesmo núme- 
ro de linha várias vezes. Por outro la- 
do, se uma linha for muito curta — 
PRINT ou RETURN isolados, por 
exemplo — existe uma pequena chance 
de que TRACE não a detecte. Se isso 
acontecer, tente provocar uma pausa 
usando um FOR...NEXT. 

O Spectrum tem dificuldade em im- 
primir na tela durante uma interrupção. 
Dois canais diferentes são usados para 
imprimir na parte superior da tela ou 
nas duas linhas inferiores, e, se mudar- 
mos de canal enquanto o programa em 
BASIC está rodando, pode haver com- 
plicações. 

Para contornar o problema, vamos co- 
locar o número da linha diretamente na 
tela. Como cada caractere consome oito 
bytes, simplificamos a parte do programa 
que cuida disso, fazendo com que os nú- 
meros das linhas sejam sempre colocados 
no mesmo local da tela, fora da área que 
o BASIC costuma usar. Ao lado do nú- 
mero, coloca-se o código do comando BA- 
SIC que está sendo executado. 

O programa TRACE não é chama- 
do de dentro do BASIC, mas por meio 
de outra rotina em código que, por sua 
vez, é chamada pelo BASIC. E esta ro- 
tina que transfere o controle para o 
TRACE, durante as interrupções. 

Não se esqueça de resguardar o topo 
da memória — os endereços a partir de 
65109 devem estar livres e protegidos 
por CLEAR 65109. Se for usado o As- 
sembler, as origens — ou endereços ini- 
ciais — estarão listadas. Se seu Assem- 
bler não funcionar, utilize o programa 
monitor da página 92. O endereço ini- 
cial é 65110, 

Não se assuste se as traduções das li- 
nhas contendo saltos para rótulos que 
estão adiante da listagem, bem como das 
linhas que utilizam variáveis e bytes ain- 
da não definidos, saírem erradas na te- 
la. Elas são posteriormente corrigidas 
pelo próprio Assembler. 

Não estranhe também se o Assembler 
parar a montagem antes de end, quan- 
do a parte inicial do programa, que con- 
tém as linhas REM com o programa- 
fonte, foi muito editada ou teve muitas 
linhas apagadas. Nesses casos, pode so- 
brar algum “lixo” no meio da listagem. 





Este não prejudica a interpretação pelo 
BASIC, mas confunde a do Assembler. 
Para contornar o problema, redigite a 
linha imediatamente posterior à última 
traduzida, e rode o programa novamen- 
te. Às vezes é necessário digitar várias 
linhas de novo. 


org 65110 

ld a,9 3E 09 
ld à,a ED 47 
im 2 ED 5SE 
ret c9 
org 65120 Oo 00 00 
ld a,62 JE 3E 
ld ài,a ED 47 
im 1 ED 56 
ret C9 
org 65129 Do 00 
rat 56 FF 
push af. ES 
ld a, (23622) 3A 46 5€C 
bit 7/,a CBR ZE 
Mr z.90 28 02 
pop af Fi 
ret C9 
go di F3 
push bc c5 
push de D5 
push hl E5 
push 1X DD E5 
ld de,20726 11 F6 50 
ld (posn),de ED 53 FE FÊ 
ld h1,(23621) ZA 45 5€ 
call lineno CD B5 FE 
ld de,20731 11 FB 50 
ld (posn),de ED 53 FE FE 
ld h1,(23623) zh 47 5S€ 
ld h,0 26 00 
call statno CD BB FE 
ld h1,23286 21 F6 5A 
ld (hl),71 36 47 
ld de,2328/7 11 F7 5A 
ld bec,9 D1 09 00 
ldir ED BO 
kevyvlp ld a,127 3E 7F 
in a,254 DB FE 
or 224 F6 EO 
cp 252 FE FC 
qr z,keylp 28 F6 
pop ix DD El 
pop hl El 
pop de D1 
pop bc cl 
pop af Fl 
ei FB 
ret C9 
lineno ld bc,-1000 01 18 FE 
call prt CD CE FE 
statno ld bc,-100 01 9C FF 
call prt CD CE FE 
ld bc,-10 01 F6 FF 
call prt CD CE FE 
ld be,-1 Ol FF FF 
call prt CD CE FE 
ret C9 
prt xor a AF 
prtilp add hl,bc 09 
inc a 3C 
jr c,prtlp 38 FC 
abc hl,bc ED 42 
dec a ID 
add a,48B Cc6 30 
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push hi 

call print 
ld hl,posn 
inc (hl) 

ld h1l, (posn) 
call prtout 
pop hl 

ret 

print ld bc, (23606) ED 
ld h,0 

ld l,a 

add hl,hi 
add h1l,hl 
add hl,h] 














CD 
21 


2h 
CD 


4B 


EB 
FE 


36 
26 


add hl,bc 9 
ex de,hl EB 
ret c9 
prtout ld b,8B 06 08 
loop ld a, (de) lA 
ld (hl),a 7? 
inc h “4 
inc de | 
dinz loop 10 FA 
ret Co 
posn defw O 00 00 


A listagem inclui três programas, e não 
apenas um. Cada um tem seu próprio 


am 


endereço inicial. O primeiro, que come- 
ça em 65110, ativa o programa principal. 
O segundo, que começa em 65120, des- 
liga o programa TRACE, O terceiro, que 
começa em 65129, faz o rastreamento. 

As instruções Id a, 9 e Id i,a colo- 
cam o número 9 dentro do registro 1. 
Não há uma instrução que carregue o re- 
gistro I diretamente com um número. O 
9 é interpretado como o byte mais sig- 
nificativo de um vetor de interrupção 
que possui dois bytes. O byte menos sig- 
nificativo é fornecido pelo computador, 
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sendo geralmente igual a 255. Assim, O 
vetor de interrupção aponta para o en- 
dereço 9*256 + 255, que é igual a 2559. 
O valor contido nos endereços 2559 e 
2560 é 65129, o endereço inicial do nos- 
so programa TRACE. 

O processo pode parecer confuso, 
mas rotinas com interrupções devem ser 
endereçadas indiretamente. Note que o 
endereço 2559 fica na ROM. Se colocás- 
semos no registro 1 um número maior 
que 64, para apontarmos pa- 
ra um endereço da RAM, on- 
de poderíamos colocar o nú- 
mero que quiséssemos — 
65129 já estava lá —, veria- 
mos que os caracteres se des- 
manchariam no vídeo. 

O mnemônico im 2 altera o 
modo de interrupção. A roti- 
na que desliga o programa 
principal coloca o valor 62 no registro 
I; 62 era o conteúdo original desse re- 
gistro. im 1 restabelece o modo de in- 
terrupção normal. 

O programa principal começa com a 
instrução rts 56. Ela determina que o mi- 
croprocessador execute sua rotina nor- 
mal de interrupção — fazendo a varre- 
dura do teclado e atualizando o relógio 
do sistema. 

Ao programar uma rotina com inter- 
rupção, deve-se levar em conta que, ao 
final de sua execução, é essencial que o 
conteúdo de todos os registros seja exa- 
tamente igual ao que havia antes da in- 
terrupção. A única maneira de garantir 
isso é colocar o conteúdo dos registros 
na pilha, usando push, no início do pro- 
grama, e retirá-lo de lá usando pop, 
quando o programa acabar. Os conteú- 
dos de BC, DE, HL e IX são todos co- 
locados na pilha. O conteúdo de AF en- 
tra antes porque o acumulador e o re- 
gistro F — que contêm os sinalizadores 
— são utilizados para verificar se o pro- 


grama BASIC está sendo rodado. Sem 


um programa BASIC funcionando, 
não há nada a ser rastreado. 
Para verificar se existe um 
programa em curso, coloca-se o 
conteúdo da posição 23622 no 
acumulador. As posições 23621 
e 23622 contêm o número da li- 
nha BASIC que está sendo exe- 
cutada. Embora os números das 
linhas BASIC sejam armazenados 
em formato alto-baixo na área do 
programa, aqui eles são armazenados 
no formato baixo-alto. 


byte mais significativo) é colocado no 
acumulador e a instrução bit 7,a exami- 
na o bit mais significativo do conteúdo 
de A. Se esse bit for 1, o programa não 
está sendo executado. Uma instrução bit 
verifica o valor de determinado bit de 
uma posição ou registro. Por exemplo, 
bit 4,a testa o quarto bit do acumulador. 

Se o bit mais significativo do byte 
mais significativo da linha BASIC que 
está sendo executada for 0, o sinaliza- 

















dor zero é estabelecido e jr z,go faz com 
que o programa vá para a próxima ocor- 
rência do rótulo go. Se o bit 7 do acu- 
mulador for 1, o sinalizador não é esta- 
belecido e o saldo não ocorre. O progra- 
ma continua na próxima instrução, que 
recupera o valor de AF da pilha e retor- 
na ao interpretador BASIC. 

Uma vez que haja um programa sen- 
do rodado e que ele tenha sido transfe- 
rido para o rótulo go, a instrução di de- 
sabilita interrupções, garantindo o fun- 






























Se nenhum programa está sendo exe- 
cutado, o número contido nas duas po- 
sições será muito elevado para perten- 
cer a uma linha BASIC — 9999 é o 
maior número de linha que o Spectrum 
aceita. Assim, o conteúdo de 23622 (o 
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cionamento contínuo de nossa rotina de 
interrupção. 

A instrução ld de,20726 coloca no re- 
gistro DE o endereço da posição da tela 
imediatamente anterior âquela onde co- 
locaremos um caractere. Como o pro- 
grama usará muito esse endereço, ele é 
colocado na variável posn, por meio do 
comando Id posn,de. Nosso Assembler 
interpreta a variável posn como uma po- 
sição de memória que tem um nome. 
Como nenhuma instrução permite colo- 
car um número diretamente dentro de 
uma variável ou posição de memória, 
usamos um registro como intermediário. 

Coloca-se no par HL o conteúdo das 
posições 23621 e 23622, que é o núme- 
ro da linha BASIC que está sendo exe- 
cutada no momento, Podemos então 
chamar a sub-rotina de rótulo lineno. 

O número da linha BASIC em HL es- 
tá em hex. Para convertê-lo para deci- 
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sbLI PELAS 40, FUI APANHADO EM UM LAÇO 
SEM FIM E, QUANDO Vi, ESTAVA CERCADO POR, 
VARIÁVEIS DE VIDA FÁCIL. E 


UM BANDO DE GOTOS MAL ENCARADOS... 


mal, começamos por calcular o algaris- 
mo dos milhares: subtraímos 1000 do 
número em HL repetidamente, contan- 
do quantas vezes foi possível fazer tal 
operação. Colocamos, assim, o valor 
— 1000 no par BC e chamamos a sub- 
rotina prt, que faz as subtrações. Nessa 
sub-rotina, a primeira coisa que o mi- 
croprocessador faz é xor a — isto é, um 
ou exclusivo. Em linguagem de máqui- 
na, um xor sempre age no registro A; 
assim, xor a faz um ou exclusivo do acu- 
mulador com ele mesmo, o que sempre 
resulta em O. Esta é uma maneira rápi- 
da de colocar O no acumulador, já que 
ld a,0 tem um byte a mais, 

add hl,bc subtrai 1000 do conteúdo 
de HL. Somar —1000 é mais rápido que 
subtrair 1000, já que dispensa cuidar do 
sinalizador carry (“vai um”). O acumu- 
lador é, então, incrementado e atua co- 
mo contador. jr c,prtlp verifica o sina- 




























lizador carry e salta quando ele é esta- 
belecido. 

Se considerarmos o conteúdo de BC 
entenderemos como tudo funciona. Vi- 
mos no artigo da página 142 que os 
números negativos são representados 
dentro do computador por números po- 
sitivos muito grandes, mas de compri- 
mento limitado. O par de registros BC 
contém dezesseis números 1 binários, 
menos 1000 em decimal. Se qualquer 
número maior que 1000 for somado a 
BC, o valor do resultado ultrapassará a 
capacidade do par HL e o sinalizador 
carry será estabelecido. 

Quando isso ocorre, há um salto, 
1000 é novamente subtraído de HL, o 
contador é incrementado e o processo 
recomeça. Ele se repete até que o con- 
teúdo de HL seja menor que 1000; a adi- 
ção com BC, então, não estabelece o si- 
nalizador carry. Neste ponto, porém, a 
subtração já foi feita e a incrementação 
do contador ocorreu uma vez mais que 
o necessário. Assim, somamos 1000 a 
HL — na realidade subtraímos —1000 
— e decrementamos o acumulador. 

O acumulador contém, agora, o al- 
garismo dos milhares. Adicionando 48, 
obtemos o código ASCII do caractere. 
O conteúdo de HL é reservado na pilha 
para quando formos calcular as cente- 
nas, dezenas e unidades. Em seguida, 
chamamos a sub-rotina print. 

A primeira instrução dessa sub-rotina 
é Id bc, (23606), que coloca o conteúdo 
das posições 23606 e 23607 em BC. Es- 
sas posições contêm a variável do siste- 
ma que aponta para o endereço inicial 
do conjunto de caracteres da ROM. O 
conteúdo de H é reduzido a zero e o do 
acumulador é transferido para L, que 
conterá, assim, o código ASCII do ca- 
ractere que queremos escrever. O regis- 
tro HL é usado, então, como um acu- 
mulador de 16 bits. 

Para colocar na tela o caractere de- 
sejado, temos que obter seu formato 
dentro do conjunto de caracteres que fi- 
ca na ROM. Como cada caractere tem 
oito bytes, o endereço inicial dos oito 
bytes que fornecem o padrão do carac- 
tere é oito vezes o código ASCII do ca- 
ractere, mais o endereço inicial do con- 
junto de caracteres. 

Em vez de multiplicar o código AS- 
CII por oito, é mais fácil duplicá-lo — 
somando-o consigo mesmo — três ve- 
zes. Observe que a operação não é feita 
no registro À porque o valor certamen- 
te ultrapassará oito bits — 48 X B = 
384, posição inicial do caractere O, é 
maior que 255, máxima capacidade de 
um registro de oito bits. Essa conta, 
porém, não ultrapassaráos dezesseis 
hits. 











Para obter o endereço do primeiro 
byte do caractere desejado, adiciona-se 
o resultado da operação ao conteúdo de 
BC. Os conteúdos de HL e DE são in- 
tercambiados para que HL possa ser 
usado novamente. 

ret determina o retorno do micropro- 
cessador da sub-rotina e Id hi, posn co- 
loca a posição da tela contida em posn 
no registro HL. A instrução indireta inc 
(hl) incrementa o conteúdo de posn. A 
sub-rotina que coloca o caractere na te- 
la — prtout — é, então, chamada. 

A primeira instrução dessa sub-rotina 
é Id b, 8, que coloca 8 no registro B. Ele 
será usado como contador para os oito 
bytes do caractere que serão transferi- 
dos para a tela. O acumulador é carre- 
gado com o conteúdo da memória cujo 
endereço está em DE, ou seja, com o 
primeiro byte do caractere. O conteúdo 
do acumulador é transferido para a po- 
sição de memória cujo endereço está em 
HL (o local apropriado da tela). Exce- 
to em um comando de ação em bloco, 
não se pode transferir o conteúdo de 
uma posição de memória diretamente 
para outra sem utilizar um registro co- 
mo intermediário. Não há uma instru- 
ção do tipo ld (hl), (de), por exemplo. 
Essa transferência requer, portanto, 
duas instruções, e o que ela realmente 
faz é colocar a primeira linha de oito 
pontos do caractere na tela. 

O conteúdo do registro H é, então, 
incrementado. Como H contém o byte 
mais significativo do par HL, o conteú- 
do desse par aumenta em 256, de for- 
ma a corresponder ao endereço da pró- 
xima linha do caractere. 

Incrementando o conteúdo de DE, 
obtemos o endereço da próxima linha do 
caractere, dentro do conjunto de carac- 
teres, e djnz loop faz o microprocessa- 
dor voltar à sub-rotina prtout, para co- 
locar na tela os outros bytes do caracte- 
re. Este laço é repetido oito vezes, in- 
crementando H a cada volta, para co- 
locar na tela o próximo byte abaixo do 
anterior, e incrementando DE, para ob- 
ter o padrão dos oitos pontos a serem 
colocados na tela, do conjunto de carac- 
teres da ROM. Ao mesmo tempo, a ins- 
trução djnz (decrementa saltando se não 
for zero) decrementa o registro B. As- 
sim, quando o processo estiver na oita- 
va repetição — e os oito bytes que com- 
põem o caractere tiverem sido coloca- 
dos na tela —, o caractere correspon- 
dente ao algarismo dos milhares estará 
no vídeo, o registro B conterá zero, a 
condição não-zero do comando djnz 
não será satisfeita e o microprocessador 
passará à próxima instrução, que é ret, 
E retornando para onde foi chamada a 
sub-rotina. 


O comando pop hl recupera os dois 
últimos bytes colocados na pilha. Se 
olharmos para trás, veremos que se tra- 
ta do resto que ficou em HL após o cál- 
culo do algarismo dos milhares. ret 
manda o microprocessador de volta à li- 
nha onde está statno ld be, -100 e o 
processo se repete para calcular o alga- 
rismo das centenas. Quando este for co- 
locado na tela ao lado do algarismo dos 
milhares, o algarismo das dezenas — e, 
depois, o das unidades — é calculado da 
mesma maneira e colocado na tela na 
posição adequada. 

Depois disso, o microprocessador re- 
torna para onde a sub-rotina lineno foi 
chamada. O valor 23731 é colocado em 
posn, um endereço da tela um pouco à 
direita de onde foi colocado o número 
da linha. Obtém-se, assim, espaço sufi- 
ciente para quatro dígitos do número e 
um espaço em branco. 


O conteúdo das posições 23623 e p= 


23624 é colocado em HL,; estas posições 


contêm o número da instrução BASIC | 


que está sendo executada no momento. 
O valor máximo que o código de uma 
instrução BASIC pode assumir é 128; 0 
byte mais significativo é, portanto, des- 
necessário e deve ser reduzido a zero pe- 
la instrução ld hi, O. A sub-rotina que 
cuida da conversão do número para de- 
cimal, bem como de sua impressão na 
tela, é executada novamente, só que des 

ta vez é chamada por meio do rótulo 
statno, já que-são necessários apenas 
três dígitos. 

Quando o código da instrução BA- 
SIC é novamente impresso na tela, o mi- 
croprocessador volta ao programa prin- 
cipal, onde executa uma pequena sub- 
rotina que coloca no vídeo os caracte- 
res invertidos. Como a rotina leva me- 
nos de 20 milésimos de segundo, não há 
a menor chance de percebermos que um 
caractere foi desenhado normalmente e 
depois invertido. 

ld h1,23286 é o endereço da posição 
anteriorjao primeiro dígito na tabela de 
atributos, que fornece uma ''moldura” 
ao número. O número 71 — que pro- 
duz fundo preto e caracteres brancos — 
é colocado nesta posição. O endereço da 
próxima posição é colocado em DE e 9, 
no par BC, que será usado como 
contador. 

A instrução de armazenamento em 
bloco Idir coloca o conteúdo da posição 
de memória dada por HL na posição da- 
da por DE, deçrementa B e verifica se 
o valor de B foi reduzido a zero. Se não 
foi, o processo é repetido. Em outras pa- 
lavras, a instrução copia os atributos 
fundo preto e caracteres brancos do pri- 
meiro caractere nos outros nove carac- 
teres adjacentes. 





PAUSA NO PROGRAMA 


As nove instruções seguintes permi- 
tem parar temporariamente o programa 
TRACE — e, também, o programa BA- 
SIC — a qualquer momento. A instru- 
ção in recebe informações vindas de 
uma das portas de entrada. No nosso ca- 
so, estamos interessados no teclado, que 
envia dados ao microprocessador pela 
porta 254. Queremos verificar se algu- 
ma tecla da porção inferior direita do te- 
clado — de B até BREAK/SPACE — 
foi pressionada. Assim, ld a,127 coloca 
127 dentro do acumulador para ser usa- 
do como parâmetro da instrução in. 
Juntos, os comandos ld a,127 ein a, 254 
colocam o valor enviado pela porção ci- 
tada do teclado no acumulador. 

De Ba BREAK/SPACE existem ape- 
nas cinco teclas, cada qual Fepresenta: 
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da por um bit dentro do número envia- 
do ao microprocessador. Sobram, por- 
tanto, três bits. Se executarmos a ope- 
ração lógica or entre o conteúdo do acu- 
mulador e 224, faremos com que os três 
bits mais significativos se tornem | — 
224 é 11100000 em binário. 

Quando uma tecla não está sendo pres- 
sionada, seu bit dentro do valor enviado 
é 1. Quando ela é pressionada, este valor 
muda para zero. Para provocar uma pau- 
sano TRACE, deve-se pressionar duas te- 
clas simultaneamente: <SIMBOL 
SHIFT > e <BREAK/SPACE >. Coma 


pausa, o teclado pode ser usado normal- a 


mente para editar linhas, mesmo que o 
programa esteja “ligado”. 

Quando pressionamos <BREAK/ 
SPACE >, o bit zero do número envia- 
do passa de 1 para 0. <SIMBOL 
SHIFT > faz o mesmo ao bit um. Se não 
pressionarmos nenhuma das duas teclas 
e cada um dos três bits mais altos for 
transformado em um, o número envia- 


E A LÓG 





do pela porção do teclado em questão 
será 255, ou HI. Mas, se pressionar- 
mos as duas teclas ao mesmo tempo, o 
número enviado será 252, ou 11111100. 

Assim, quando o número enviado pe- 
la porta 254 entta no acumulador, é 
comparado com 252 pela instrução cp 
252. Se o acumulador contiver 252, o si- 
nalizador zero será estabelecido. Então, 
ir z (salto relativo se zero) faz com que 
a rotina seja repetida. Enquanto as duas 
teclas permanecerem pressionadas, as 
repetições prosseguirão. Como o nosso 
programa interrompeu o programa prin- 
cipal, este também não prosseguirá en- 
quanto o microprocessador não termi- 
nar a execução da rotina. 

Se nenhuma tecla é pressionada, o 
processador passa às instruções pop ix, 
pop hi, pop de, pop bce pop af, que re- 
cuperam o conteúdo original dos regis- 
tros anteriores à interrupção. 

A instrução ei habilita a ocorrência 
de interrupções e ret faz o microproces- 
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sador voltar ao interpretador BASIC, 
que continuará a execução do progra- 
ma principal. 

A última instrução da listagem As- 
sembly, defw posn, não terá códigos 
correspondentes no programa-objeto 
que o Assembler vai criar. Esse tipo de 
instrução é usado pelo Assembler ape- 
nas para reservar dois bytes, onde serão 
colocados números utilizados pelo pro- 
grama. No nosso caso, o que fica arma- 
zenado ali é o valor de posn. 

A instrução defw (definir dois bytes) 
reserva um espaço para colocar dados, 
permitindo também que se dê um nome 
a ele — posn, por exemplo. Outra ins- 
trução semelhante é defb, que “define 
um byte”. 


COMO ENCONTRAR OS ERROS 





Para usar o TRACE, carregue o pro- 
grama BASIC a ser corrigido. Em segui- 
da, reserve o topo da memória com 
CLEAR 65109 e carregue o TRACE. 

Antes de rodar o programa rastrea- 
dor, grave-o em fita. Se o seu Assembler 
estiver funcionando, faça-o pela via 
usual. Assim, você gravará o programa- 
fonte, das linhas REM, junto com o res- 
to do Assembler. Quando o programa 
rastreador estiver funcionando, é melhor 
gravá-lo em fita, já montado em lingua- 
gem de máquina. Para isso, digite: 


SAVE "TRACE" CODE 65110,176 
Para carregá-lo, digite primeiro CLEAR 
65109 e, em seguida: 

LOAD "” CODE 


Se o Assembler não estiver funcio- 
nando, use a opção de gravação do seu 
monitor. Para ligar o TRACE, digite: 


RANDOM USAR 65110 


Nada acontecerá até que um progra- 
ma em BASIC seja executado, com 
RUN. Depois disso, aparecerão no vi- 
deo o número da linha e o código do co- 
mando que estiver sendo executado. 

O próblema mais fácil de se detectar 
com o auxílio do programa rastreador 
é o “laço sem fim”. Se você observar 
que os mesmos números de linha se re- 
petem mais e mais vezes, pode estar cer- 
to de que há algo errado em algum GO- 
TO. Por outro lado, se certas linhas 
nunca forem executadas, é provável que 
algum IF...THEN contenha condições 
erradas. Caso queira observar os even- 
tos mais detalhadamente, use a pausa. 

Para desligar o programa rastreador, 
digite: 


RANDOM USR 65120 


Já reunimos muita informação a res- 
peito dos comandos gráficos. Ainda as- 
sim, é possível que não estejamos fazen- 
do o melhor uso deles. 

Os comandos de cor, por exemplo, 
são muito mais versáteis do que parecem 
à primeira vista e fazem muito mais do 
que simplesmente pintar blocos. Aqui 
estão algumas idéias e técnicas que tal- 
vez o ajudem a aprimorar seus gráficos. 


Os comandos PLOT e DRAW do 
Spectrum podem ser usados de várias 
maneiras, mas sabemos que nem sem- 
pre produzem o efeito desejado. Mui- 
tas vezes, isto se deve às limitações da 
tela de alta resolução gráfica, que não 
aceita cores diferentes em pontos adja- 
centes dentro de um mesmo quadrado 
na tela de texto. Mas há outros fatores 
que interferem nos resultados. O melhor 
a fazer é tentar aproveitar ao máximo 
o efeito obtido, seja ele qual for. 

Por exemplo, se o método de som- 
breamento utilizado apresenta um resul- 
tado pouco uniforme, elabore o progra- 
ma de modo que o efeito pareça propo- 
sital. E se algumas cores estão se sobre- 
pondo em certas áreas do trabalho, ou 
se você precisa de mais de duas cores 
num mesmo quadrado, projete o dese- 
. nho de modo que qualquer mudança de 

cor aconteça num novo quadrado. 

Restarão ainda os problemas com as 
curvas mas, com um certo esforço, será 
possível diminuir seus efeitos. 

O importante é que, diante da impos- 
sibilidade de obter um determinado efei- 
to, você pelo menos esteja preparado 
para adaptar e usar todos os recursos 
disponíveis. Daí, sim, na medida em que 
aprendermos mais sobre a máquina, 
procuraremos desenvolver novos méto- 
dos de refinamento do desenho. 


COMO SOMBREAR A TELA | 


Sabemos que o Spectrum dispõe de 
eficientes recursos para a elaboração de 
desenhos (veja artigos das páginas 113 
e 232, por exemplo). 

Mostraremos agora como sofisticar 
ainda mais os gráficos, explorando me- 


lhor os comandos de desenho e de cor 
que já conhecemos. E por que não au- 
mentar nosso repertório de figuras ou 
aprender a utilizá-las como base para 
outras? 

Este pequeno programa desenha pon- 
tos em posições aleatórias. Observe 
quanto tempo leva para preencher a te- 
la toda. 


10 LET x=INT (RND*256) 
20 LET y=INT (RND*176) 
30 PLOT Xx,Y 

40 GoTo 10 


Como você viu, demora bastante, O 
que torna o método pouco aconselhá- 
vel para quem quer preencher comple- 
tamente uma grande área num gráfico. 
Entretanto, o programa é muito útil 
quando se pretende sombrear uma área 
— e isto ele faz com certa rapidez. 

Com o simples acréscimo de uma li- 
nha criamos um efeito ainda melhor. 







Conhecendo mais a fundo os comandos 
gráficos de seu micro, você poderá 
fazer melhor uso dos recursos 
disponíveis. E mais: saberá contornar 
todas as suas limitações. 





Adicione a seguinte linha a seu progra- 
ma e rode-o novamente: 


25 IF (X>35 AND X<90) AND (Y> 
35 AND Y<90) THEN GOTO 10 


Logo se observa que o computador 
vai deixando um quadrado limpo de 
pontos — ou seja, vazio. A linha 25 ve- 
rifica se os valores de x e y estão entre 
35 e 90; o computador salta, em segui- 
da, para a linha 10, para gerar novos va- 
lores. Obtemos, então, uma área vazia 
entre 35 e 90, em ambas as direções; 
forma-se, assim, um quadrado nessas 
coordenadas. 

Poderíamos utilizar essa técnica num 
jogo: por exemplo, depois de escrever 
algo num quadrado, o resto da tela se- 
ria preenchido gradualmente, enquanto 
as palavras continuariam visíveis. A 
mesma técnica também será útil para 
destacar uma mensagem na tela, como 
o título de um programa ou jogo. 
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As condições na linha 25 parecem ser 
complicadas. No artigo da página 34, vi- 
mos como usar AND e OR para incluir 
mais de uma condição num IF...THEN. 
O significado dessas funções coincide 
exatamente com a tradução dos dois ter- 
mos — ou seja, E e OU, respectivamen- 
te. Na linha 25, portanto, x tem que ser 
maior que 35 AND (E) menor que 90, 
AND y tem que ser menor que 90 AND 
maior que 35; só assim o computador 
executará o GOTO 10. 

Os parênteses entre as duas metades 
da linha separam as condições para x € 
y (que na verdade são as mesmas, mas 
devem ser separadas por um AND). No 
nosso exemplo, poderíamos retirar os 
parênteses, pois utilizamos somente 
AND. Caso usássemos tanto AND 
quanto OR, os parênteses seriam essen- 
ciais, Veremos o que o OR faz no exem- 
plo seguinte. Podemos mudar a área que 
pretendemos deixar intacta da maneira 
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que quisermos — experimente, por 
exemplo, substituir o AND entre parên- 
teses por um OR. Em vez de quadrado 
vazio, obteremos uma cruz. 

Mude a linha 25 para: 


25 IF (X>110 AND X<145 AND Y>40 
AND Y<136) OR (X>40 AND Xc< 
215 AND Y>70 AND Y<100) THEN 
GOTO 10 


Você pode deixar qualquer área va- 
zia, mas não se esqueça de que, quanto 
mais complicada for esta área, mais con- 
dições terá o IF... THEN, e mais tempo 
o computador levará para verificá-las. 
Mesmo um triângulo — ou um circulo 
— requer muitas condições e, assim, O 
computador demorará para desenhar os 
pontos. Aconselhamos, no caso de som- 
breamento, restringir as áreas a linhas 
horizontais e verticais, pois elas levam 
menos tempo para serem verificadas e, 
portanto, aparecem logo na tela. 


| DESENHO E COR 


Em artigos anteriores vimos como 
desenhar no Spectrum figuras bastante 
detalhadas. Os principiantes em progra- 
mação gráfica, porém, deparam-se com 
um problema: de um modo geral, essa 
máquina apresenta uma grande limita- 
ção quando se trata de desenhar uma fi- 
gura e sombreá-la com cor. Caso não 
saiba do que estamos falando, veja este 
exemplo: 





5 BORDER 7: PAPER 7: INK 4: 
CLS 

10 FOR x=1 TO 10 

20 PRINT * HEHEHEHE HEH ” 


30 NEXT x 
40 PLOT INK 2;0,175 
50 DRAW INK 2;120,-80 


60 INK 1: CIRCLE 100,95,50 


O programa preenche uma área em 
verde, usando blocos gráficos, depois tra- 
ça uma linha diagonal vermelha e um cir- 
culo azul — pelo menos, deveria ser as- 
sim. Na prática, porém, todos os quadra- 
dos por onde a linha passa mudam de 
cor. É claro que existem maneiras de se 
evitar que isso ocorra, mas a maioria de- 
las precisa de longos programas para que 


À o Spectrum manipule as informações. 








e MAIS SOBRE O 
CIRCLE E O PAINT NO MSX 

E PSET, PRESETE COLOR 
NO TRS-COLOR 

E O FLASH NO APPLE 


Mais adiante, em outro artigo, vere- 
mos como fazê-lo. Por enquanto, fica- 
remos com uma alternativa simples: evi- 
tar as áreas problemáticas. Foi o que fi- 
zemos nos programas de gráficos ante- 
riores, como o do campo de golfe, apre- 
sentado na página 233. Nesse caso, es- 
colhemos primeiro a cor da tela e, de- 
pois, desenhamos as linhas, observando 
que nenhuma delas passasse sobre áreas 
já ocupadas por caracteres gráficos. 

Para que você entenda melhor e, ao 
mesmo tempo, experimente um traba- 
lho com arcos, digite o programa a se- 
guir. Ele desenha um carro colorido. 


BO BORDER 2: PAPER 6: INK O: 
CLS 
90 FOR n=8 TO 15 
100 CIRCLE 80,47,n: CIRCLE 180 
ç47,nm 
110 NEXT n 
120 PLOT 62,51: DRAW 38B,-5,-PI 
130 DPAW 60,0: DRAW 40,0,-PI 
200 FOR n=1 TO 10: READ a,b,c: 
DRAW a,b,c: NEXT n 
210 PLOT 112,48: DRAW 45,0: 
DRAW 22,20,-PI/2 
220 DRAW 7,15: DRAW -35,23: 
DRAW -40,0: DRAW 0,-58 
230 PLOT 115,104: DRAW 34,0: 
DRAW 30,-19 
240 DRAW -64,-5,-.25: 
24 
250 PLOT 40,83: DRAW 52,5,.3: 
DRAW 6,20,.3 
260 PLOT 30,55: DRAW -5,l: 
DRAW 0,5: DBAW 5,1 
270 PLOT 240,56: DRAW 5,1: 
DRAW 0,5: DRAW -5,1 
280 PLOT 36,75: DRAW 
184,0 
290 PRINT OVER 1; 
4; AT 13,28;*T” 
300 FOR n=-31 TO O STEP -1: 
PLOT O,n: DRAW INK 4;255,0: 
NEXT n 
500 DATA 40,8,.2,0,10,0,-30,15 
read, Dy cd 
510 DATA -40,25,0,-60,-2,.1, 
-80,-25,.2 
520 DATA -10,-20,-.25,0,-8,0, 
31,-3,.2 


DRAW O, 


INK 2; 


INK Z;AT 13 


As linhas 90 a 110 desenham uma sé- 
rie de círculos, cada um maior que o an- 
terior, formando as rodas do carro. O 
Spectrum não consegue traçar círculos 
perfeitos numa área quadrada. Em con- 











sequência das diferenças de curvatura, 
alguns pontos se perdem, ou melhor, 
não são incluídos em curva alguma, Co- 
mo esses pontos não são desenhados, o 
pneu do carro adquire uma aparência 
pontilhada. Poderíamos encarar tal efei- 
to como um problema, mas não há ra- 
zão para isso, já que, na verdade, a ro- 
da ganhou um visual ainda mais realís- 
tico. Como afirmamos, para se desenhar 
bem é necéssário fazer bom uso das ca- 
racterísticas da máquina, e não se atra- 
palhar com elas. 

A linha 120 desenha um ponto na 
coordenada 62,51, que é a posição ini- 
cial das linhas que formam o carro. 
Usando o laço FOR...NEXT na linha 
200, e as linhas 120 e 130, o Spectrum 
lê (READ) as informações necessárias 
para desenhar (DRAW) o contorno do 
carro. Os dados (DATA) para o laço 
FOR...NEXT estão nas linhas 500 a 
520. Note que todas as curvas estão na 
forma x, y, Z, que é o comando para de- 
senhar uma linha curva, ou seja, um ar- 
co, cuja curvatura é especificada por Z. 

Os primeiros dois números são os 
mesmos de sempre: definem o quanto 
acima e o quanto à direita do último 
ponto queremos o próximo ponto. O 
terceiro número especifica o ângulo da 
curva. O comando que desenha o capô 
curvo do carro é DRAW 38, -5-PI. 
Tente mudar o último número (PI é 
mais ou menos 3,14) e veja a diferença 
de curvatura do capô. 

Os detalhes internos ao contorno 
constituem seções do programa: a por- 
ta e seu vidro estão nas linhas 210 a 240; 
o vidro traseiro, na linha 250; os pára- 
choques, nas linhas 260 a 270 e a lista 
na linha 280. As linhas 290 e 300 sim- 
plesmente dão um toque colorido ao de- 
senho: a linha 290 coloca as lanternas 
(vermelhas) e a linha 300 faz a grama 
sob o carro. 

Posicionando cuidadosamente o car- 
ro e a grama, evitaremos o problema de 
ter duas cores num mesmo quadrado. 
Observe, no programa acima, a grama 
sob o carro. Este foi posicionado com 
suas rodas chegando até o fundo de um 
quadrado, de modo que o ponto seguin- 
te (onde rag a grama) fica em ou- 
tro quadrado, não interferindo, assim, 
na cor dos pneus. 

Como se vê, é necessário planejar em 
" detalhes a posição de cada elemento. 
Mas nem sempre isso é possível: no nos- 
so caso, por exemplo, a listra vermelha 
altera a cor de algumas partes do carro. 
O importante, porém, é evitar alterações 
de cor nos lugares onde elas apareceriam 
muito. 

Para praticar com o DRAW, acon- 
selhamos que tente mudar algumas par- 


tes do carro; somente assim será possi- 
vel saber exatamente o que cada linha 
faz e, ao mesmo tempo, familiarizar-se 
com o comando. O ideal seria podermos 
imaginar a figura acabada sem precisar 
desenhá-la desde o começo. 


Ra 





O USO DO FLASH 





O FLASH, um comando de utiliza- 
ção muito simples, é ideal para destacar 
mensagens na tela, principalmente em 
jogos. Ele não usa parâmetro nenhum 
e, em geral, vem antes do comando 
PRINT. Não se esqueça, porém, de que 
o FLASH é um comando separado do 
PRINT: por essa razão, deve vir numa 
outra linha ou separado por dois pon- 
tos. Exemplo: 


FLASH: PRINT” PISCA-PISCA * 


Quando o computador encontra o 
comando FLASH em uma linha de pro- 
grama, ele faz “piscar” tudo o que for 
mandado para a tela a partir daquela li- 
nha, ou seja, o conteúdo de todos os 
PRINT que vierem depois de FLASH. 
O FLASH mostra alternadamente o in- 
verso e o normal dos caracteres exibidos 
na tela. 

Digite e rode o seguinte programa: 


10 HOME : VTAB 10 
20 FLASH 
30 PRINT "ISTO ESTA PISCANDO” 
40 FORT = O TO 2000: NEXT 
50 HOME : VTAB 10 
60 PRINT ” ISTO TAMBEM " 
70 FORT = 0 TO 2000: NEXT 
80 GoTO 10 
Tecle <CTRL- C> para parar e liste 
o programa. Tudo continua piscando, 
pois o FLASH ainda está ativado. Para 
desativá-lo, digite NORMAL e aperte 
a tecla < RETURN. Liste novamente. 
O comando NORMAL desativa o 
FLASH e pode ser usado tanto dentro 
de programas como fora deles ou, em 
outras palavras, tanto no modo direto 
como no indireto. Substitua as linhas 
60, 70 e 80 e adicione a linha 90. As mo- 
dificações são as seguintes: 


60 NORMAL 

70 PRINT "ISTO NÃO ESTA” 
Bo FORT = O TO 2000: NEXT 
90 GcoTo 10 


Se apertarmos <CTRL-C > no “IS- 
TO NÃO ESTÁ” e depois listarmos o 
programa, veremos que a listagem não 
pisca, pois interrompemos o programa 
quando este estava em modo NOR- 

. Mas, se apertarmos < CTRL-C > 
no “ISTO ESTÁ PISCANDO”, a lis- 





pemos o programa no modo FLASH, 
ou melhor, com o FLASH ativado. 

O comando INVERSE mostra os ca- 
racteres em modo inverso, ou seja, le- 
tras pretas num fundo branco. 

O programa que se segue faz a apre- 
sentação dos três comandos em seus res- 
pectivos modos. 


10 HOME : VTAB 10 

20 FLASH 

30 PRINT : PRINT * FLASH * 
40 GOSUB 110 

50  INVERSE 

60 PRINT : PRINT * INVERSE * 
70 GOSUB 110 

B0 NORMAL 

90 PRINT : PRINT * NORMAL” 
100 END 

110 FORT = O TO 2000: NEXT 
120 RETURN 


1 PRA 


O programa que apresentamos a se- 
guir emprega gráficos já vistos e pode- 
ria ser usado para ensinar inglês a 
crianças. 

O programa desenha figuras para as 
três primeiras letras do alfabeto. Para 
a letra A, desenha uma “apple” (maçã); 
para a letra B, uma ““ball” (bola) e, pa- 
raa €, um “cat” (gato). A ampliação 
do programa, ou seja, o desenho de fi- 
guras para as outras letras, ficará a car- 
go de cada um. A figura relacionada à 
letra D poderia ser, por exemplo, um 
“dog'' (cão) e estaria situada a partir da 
linha 4000. Para dizer ao computador 
aonde ir caso a letra escolhida seja a D, 
basta acrescentar uma virgula e 4000, 
depois do 3000 na linha 60. A figura da 
letra E poderia ser colocada a partir da 
linha 5000 e assim por diante. 

Se quiser aperfeiçoar o programa, es- 
creva também o nome da figura e a le- 
tra escolhida, como mostram as ilustra- 
ções da bola e do gato. Para isso, utili- 
ze a sub-rotina que desenha letras em te- 
la de alta resolução, já apresentada mais 
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de uma vez em INPUT (por exemplo, 
no artigo da página 354). Deixamos a 
adaptação desta sub-rotina como um de- 
safio a programadores mais experientes. 







5 SCREEN 0:COLOR 1,15,15 

10 PI=4*ATN(1) :CLS:LOCATE 9,10 
20 PRINT"ME DE UMA LETRA => 7?” 
30 AS=INKEYS: IFAS<"A"ORAS>"Z"TH 
EN30 

40 LOCATE 28,10:PRINTAS 


50 FORT=1T0500:NEXT 

60 A=ASC(AS)-64:0N A GOTO 1000, 
2000, 3000 

70 GOTO 30 


:COLOR15,11,12:CLS 
ps vd 


1000 SCREENZ2 
1010 CIRCLE(128,96),40,6 
1020 PAINT(128,96),6 
1030 FOR Z=1 TO 50 STEP .3 

1040 PSET((100+2*.5)+RND(1)*25, 
80+RND(1)*40),15 


1050 NEXT 

1060 CIRCLE(90,70),40,12,0,PI/2 
(1 

1070 CIRCLE(112,50),10,12,,,.5 


1080 CIRCLE(140,55),10,12,,,.5 
1090 PAINT(112,50),12 

1100 PAINT(140,55),12 

1110 GOTO 3280 

2000 SCREEN2:COLOR15,1,9:CLS 
2010 C1I=INT(RND(1)*14)+1 

2020 C2Z=INT(RND(1)*14)+1 

2030 CIRCLE(128,96),10,Cl,,.. 
2050 PAINT(140,90),Cl 

2060 CIRCLE(128,96),30,C2,,.. 
2070 CIRCLE(128,96),10,C2,,.. 


“a ad 


is | 


ES 


2080 
2090 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
9 

3120 
3130 
9 

3140 
3150 
9 

3160 
3170 
9 

3180 


28),9 


3190 
3200 






51 


PAINT (140,90),C2 


GOTO 3280 


SCREEN2:COLOR1,3,4:CLS 

REM CORPO/CABEÇA/OLHOS 
CIRCLE(128,106),40,1,,,1.5 
CIRCLE(128,46),20,1,,,1.15 
CIRCLE(121,40),5,1,,,.5 
CIRCLE(135,40),5,1,,,.5 
PAINT(128,46),1 

PAINT (128,106),1 

REM ORELHAS 
X1=108:X2=113:X3=103 

LINE (X1,15)-(X2,28),9 

LINE (X1+40,15)-(X2+40,28), 


LINE (X2,28)-(X1,41),9 
LINE (X2+40,28)-(X1+40,41), 


LINE (X1,41)-(X3,28),9 
LINE (X1+40,41)-(X3+40, 28), 


LINE (X3,28)-(X1,15),9 
LINE (X3+40,28)-(X1+40,15), 


PAINT (105,28),9:PAINT(150, 


REM CAUDA 
CIRCLE(75,106),35,1,1.2*PI 


(1.8*PI,1 


3210 


CIRCLE(75,106),33,15,1.2*P 


1, ).68*PI,l 


3220 
3230 
3240 
3250 
3260 
3270 
3280 


CIRCLE (128,50) e dvd . a 
REM BIGODE 

LINE (128,52)-(150,55),15 
LINE (128,52)-(150,53),15 
LINE (128,52)-(106,55),15 
LINE (128,52)-(106,53),15 
FOR T=0 TO 2000:NEXT:GOTO 5 


Logo no início, o programa pede por 
uma letra. A linha 60 é responsável pe- 
lo cálculo do valor da letra, que será 
guardado na variável A, e também pela 
escolha da sub-rotina relacionada à le- 
tra escolhida, No nosso programa, se a 
letra escolhida foi A, Bou Co progra- 
ma saltará para a linha 1000, 2000 e 
3000, respectivamente. Na linha 60, não 
há opção para as letras maiores que €; 
para estas letras, o programa volta pa- 
ra a linha 30, 

A sub-rotina que desenha a maçã co- 
meça na linha 1000. As linhas 1030 a 
1050 desenham pontos brancos em po- 
sições aleatórias, para dar um visual 
mais realista ao desenho. A linha 1060 
desenha um arco que vai de O a PI/2 
graus, representando o pequeno caule. 

A bola começa na linha 2000; Cl e 
C2 são cores aleatórias de números 1 a 
15. Suponhamos que a bola esteja divi- 
dida em duas: a bola maior, que será 
pintada na cor Cl, ea bola menor (den- 
tro da maior), que receberá a cor C2. 
Pintamos a bola maior primeiro porque, 
no MSX, a cor com que colorimos a fi- 
gura deve ser a mesma do seu contor- 
no. Seria impossível, por exemplo, fa- 
zer em branco o círculo que divide as 
duas bolas e, depois, pintar a maior de 
azul e a menor de verde. Nenhuma cor 
utilizada para colorir aceitará outra cor 
como delimitação de contorno. Nossa 
saída foi desenhar na cor Cl a bola 
maior e pintá-la nessa cor, antes de de- 
senhar e, também, pintar na cor C2 a 
bola menor. Observe que foi preciso re- 
desenhar o círculo menor na cor C2 (li- 
nha 2070) para que a bola menor o acei- 
tasse como parte dela. Omita a linha 
2070 para ver o que acontece. 

A sub-rotina que desenha o gato co- 
meça na linha 3000. As linhas 3110, 
3130, 3150 e 3170 desenham a orelha es- 
querda, que está 40 pontos à direita da 
outra — por isso somamos 40 às mes- 
mas coordenadas x da outra orelha. As 
linhas que desenham a cauda — 3200 e 
3210 — seguem o mesmo princípio do 
desenho do caule, na linha 1060. A li- 
nha 3220 desenha o nariz. 


— ] = ] 


Já vimos como usar o PSET no de- 
senho de círculos e curvas seno e cosse- 
no. Vamos agora explorar um pouco 
mais seu funcionamento e o de seus re- 
lacionados PRESET, PCLS e COLOR. 


O COMANDO PSET 


Podemos dizer que o PSET “acen- 
de'*, na cor escolhida, a menor unida- | 








de gráfica em qualquer PMODE. 

No PMODE 4, somente um ponto é 
aceso; nos PMODE 2 e 3, acendem-se 
dois pontos ao mesmo tempo, e nos 
PMODE 0 e 1, quatro. Não confunda 
o PSET empregado dessa maneira com 
o PSET usado anteriormente no coman- 
do LINE (veja o artigo da página 113). 

Rode este programa: 


10 PMODE 0,1 

20 PCLS 

30 SCREEN 1,1 

40 FOR X=0 TO 255 

50 Z=(X-127)/10 

60 Y=95-150*Z/(1+Z*Z) 

70 IF Y<O OR Y>191 THEN 90 
BO PSET (X,Y,5) 

90 NEXT 

100 GOTO 100 


O programa desenha um gráfico no 
modo de duas cores, mas poderia tam- 
bém desenhá-lo em PMODE 4 ou PMO- 
DE 2. Este é o gráfico de uma função 
matemática obscura e foi escolhido por- 
que produz um traço interessante. 

Ao usar PSET devemos dizer à má- 
quina onde queremos acender o pon- 
to (ou conjunto de pontos) e em que 
cor. As cores disponíveis dependem do 
PMODE utilizado ou do conjunto de 
cores escolhido. 

A cor da tela será a que tiver menor 
número, entre as cores disponíveis no 
conjunto escolhido, a não ser que quei- 
ramos mudá-la. 

Como veremos mais tarde, quando 
usarmos PSET no modo de duas cores 
precisaremos especificar a cor de maior 
número; caso contrário, não veremos 
nada. No modo de quatro cores, a si- 
tuação é diferente, já que podemos es- 
colher qualquer uma das três cores de 
maior número. 

Retornando ao programa: o conjun- 
to de cores preto e amarelo foi escolhi- 
do na linha 30. As linhas 40, 50 e 60 cal- 
culam valores para x e y e a linha 80 
acende o ponto na coordenada x, y. O 
último argumento é a cor que o ponto 
| receberá — no nosso caso, 5 (amarelo). 










MODO DE QUATRO CORES 


Tente mudar a linha 10 para: 
10 PMODE1,1 


Agora, rode o programa novamente, 
Não se preocupe se nada acontecer — é 
isto O que se espera. Na verdade, estamos 
acendendo pontos em amarelo num fun- 
do também amarelo. Temos que mudar 
o último argumento do PSET, na linha 
80, para selecionar uma cor diferente, 
Neste conjunto de cores, podemos esco- 
lher entre ciano (6), magenta (7) e laran- 


ja (8). Tente mudar o argumento 5, na li- 


nha 80, para 6, 7 ou 8. Se quiser, mude 
o conjunto de cores na linha 30 para: 


30 SCREEN1,O 


Agora, podemos usar cores de núme- 
ros 1 a 4, embora 1 acenda o ponto na 
mesma cor do fundo. 

Só como curiosidade: se escolher- 
mos o conjunto de cores O e usarmos 5, 


E 





6, 7 ou 8 como último argumento do 
PSET, a máquina não enviará mensa- 
gem de erro, pois automaticamente sub- 
trai 4 dos números. 


| O COMANDO PRESET - 


O PRESET é o inverso do PSET, ou 
seja, ele “apaga” o ponto especificado 
nos argumentos entre parênteses. Pode- 
se também imaginar o PRESET como 
acendendo um ponto, ou conjunto de 
pontos, na mesma cor do fundo. 

Para observar o funcionamento do 
PRESET, rode o programa novamente 
e, então, mude a linha 80 para: 


BO PRESET(X,Y) 


Mas preste atenção: não use o co- 
mando RUN para rodar o programa 
com a linha alterada, pois se o fizer a 
tela será limpa. 

Para verificar como o PRESET apa- 
ga ponto por ponto, digite GOTO 30 e, 
em seguida, tecle < RETURN>. 
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A.COR DA TELA 


É possível mudar a cor da tela para 
qualquer uma das cores do conjunto es- 
colhido. Para isso, basta acrescentar o 
número da cor junto ao PCLS, na linha 
20. 

Supondo que a linha 30 seja 
SCREENA1,1, tente as seguintes mudan- 
ças na linha 20: PCLS6, PCLS7 e 
PCLS8. PCLS5 tem o mesmo efeito de 
PCLS, pois ambos limpam a tela na cor 
amarela. Terminadas as mudanças, fa- 
ça a linha 20 PCLS novamente. 





FUNDO E PRIMEIRO PLANO 


Como vimos no artigo da página 113, 
o comando LINE usa PSET e PRESET 
de uma maneira diferente da que aca- 
bamos de ver. Quando empregado com 
o comando LINE, o PSET diz ao com- 
putador para desenhar na cor do primei- 
ro plano e o PRESET diz que o dese- 





nho deve ser feito na cor do fundo. 

Quando ligamos o TRS-Color, a cor 
do primeiro plano é a de maior número 
do conjunto de cores (veja seu manual 
para os números das cores) e a cor de 
fundo é a de menor número. 

Mas suponha que estamos num mo- 
do de quatro cores e queremos traçar 
uma linha em uma das outras cores do 
conjunto. Não teremos problema, pois 
existe um comando em BASIC que nos 
permite escolher as cores do fundo e do 
primeiro plano. 

Digite este programa para ver como 
funciona o comando COLOR: 

10 PMODE 3,1 

20 PCLS 

30 SCREEN 1,0 

40 FOR K=1 TO 4 

50 FOR J=1 TO 4 

60 COLOR K,J 

7O LINE(0,50*kK+10*]J-55)- (255,50 
*K+10*9-55), PSET 

BO LINE (0,50*K+10*J-52)-(255,5 
0*K+10*J-52) , PRESET 

90 NEXT J,K 

100 GOTO 100 


- nr ns = 








O programa desenha pares de linhas 
paralelas, uma na cor de fundo e outra na 
cor de plano. Não se pode ver todas as li- 
nhas, pois o fundo ou o plano ajustados 
em verde coincidem com a cor da tela. 

O comando COLOR na linha 60 pro- 
duz a variação das cores. Observe que 
os comandos LINE não são alterados 
durante o programa, exceto nas coorde- 
nadas finais. 

O primeiro número depois do coman- 
do COLOR é a cor do plano e o segun- 
do, a cor do fundo. Nada impede que 
a cor do fundo seja a mesma do plano, 
embora não haja muita utilidade nisso. 

Se usarmos somente PCLS no pro- 
grama, as cores de fundo e tela serão 
iguais, mas, se especificarmos um núme- 
ro junto ao PCLS, as cores podem ser 
diferentes. Da mesma maneira, a cor do 
plano nem sempre é a mesma cor com 
que desenhamos. O único comando grá- 
fico que faz uso das cores de plano e 
fundo é o LINE e, como vimos, ainda 
assim podemos desenhar tanto na cor de 
fundo como na de plano. 








A esta altura, você deve ter um jogo 
completo de aventura gravado em fita. 
Durante seu desenvolvimento, vimos co- 
mo reunir no programa os elementos 
que o compõem. Agora, você aprende- 
rá a utilizar o jogo já pronto como base 
para elaborar suas próprias aventuras. 

Algumas dicas de como proceder pa- 
ra fazer seu jogo foram dadas ao longo 
dos últimos artigos. Todos os detalhes 
canvas tratados aqui em maior profundi- 
dade. 

Nem sempre poderemos ser muito es- 
pecíficos sobre as alterações necessárias, 
uma vez que elas dependerão muito das 
características da sua aventura; mas você 
poderá fazê-las com facilidade, se seguir 
as instruções. Algumas técnicas parecerão 
confusas no início, mas, começando com 
uma aventura simples e curta, você logo 
se sentirá à vontade para programar jo- 
gos mais complexos. Não tente fazer mui- 
tas alterações de uma só vez; vá devagar, 
estudando as seções deste artigo e fazen- 
do as alterações uma a uma. 

Comandos BASIC que não foram 
bem compreendidos podem se tornar 
mais claros com uma consulta à seção 
de programação BASIC correspon- 
dente — um grande número de coman- 
dos já foi abordado por essa seção de 
INPUT. 
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Os usuários do TK-2000 e do Spec- 
trum de 16k não poderão estender mui- 
to sua aventura, O que não significa que 
não possam aumentá-la um pouco ou 
acrescentar outros locais. Sempre é pos- 
sível, por exemplo, trocar alguma carac- 
terística da aventura por um novo local; 
tudo dependerá do que se considerar 
mais importante. 





A ESCOLHA DO TEMA 


Antes de escrever sua aventura, será 
preciso escolher uma trama ou história. 

A estrutura de uma aventura bem- 
sucedida em geral não foge a certos pa- 
drões — há começo, meio € fim, orde- 
nados conforme a sequência em que os 
problemas devem ser resolvidos. Mas 
não é necessário ser Agatha Christie pa- 
ra programar aventuras. Existem mui- 
tas fontes de idéias, como você já deve 
ter percebido; em todo caso, aqui vão 
algumas sugestões. 

Podemos basear nossa aventura em 
um assassinato. O jogo começaria, por 
exemplo, numa sala, onde um corpo es- 
faqueado jaz sem vida sobre o tapete en- 
sangúentado. O objetivo do aventureiro 
seria descobrir o assassino. Substituiria- 
mos, então, o fiscal da Receita por um 
tipo mal-encarado — ou pelo mordomo. 


= 







Agora que você já viu como programar 
uma aventura, é hora de partir para 
criações originais. Eis como usar 

o jogo de INPUT como base para 
elaborar o seu próprio programa. 





Ele poderia ajudar ou atrapalhar o jo- 
gador com pistas verdadeiras ou falsas. 
Se você quiser manter o tema da “ca- 
ça ao tesouro”, encontrará várias ma- 
neiras de utilizá-lo. Recorra, por 
exemplo, ao clichê tradicional, com pi- 
ratas e tudo, ou transforme o jogador 
em sobrevivente de um desastre aéreo 
que vitimou todos os membros de uma 
expedição. Mandar o jogador rumo ao 
futuro, por outro lado, pode ser uma 
boa idéia. Procurando novos mundos, 
ele acaba preso em um planeta hostil, 
anos-luz distante da civilização, por cau- 
sa de um defeito em sua nave espacial. 
O jogador teria como objetivo achar um 
jeito de voltar à Terra. Os locais pode- 
riam ser cheios de perigo e haveria bas- | 
tante espaço para incluir — ou ocultar 
— diversas rotas de fuga. 
Esta idéia de fuga sugere outros te- 
mas de aventuras, em que o objetivo do 
jogador seria, por exemplo, escapar de 
lugares como Alcatraz, San Quentin ou 
o Presídio da Ilha Grande. Use livros e 
jornais como fontes de inspiração. Tal- 
vez você até encontre um mapa do lu- 2/7 
gar real para fazer o mapa da aventura! // um 
Casos de espionagem também AR | 
podem dar aventuras interessan- 
tes, assim como fatos históricos. 
As cruzadas, por exemplo, podem 
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se revelar um cenário muito interessan- 
te, assim como qualquer outra guerra ou 
batalha. 

E, como sugestão final, um tema da 
moda: o aventureiro sobrevive ao holo- 
causto nuclear. Os elementos para o jo- 
go são quase infinitos: mutantes, bus- 
ca de proteção contra a radiatividade, 
ameaça de gangues de bandidos famin- 
tos, procura de água e comida não con- 
taminadas e assim por diante. 


e a po a Tt 


NOVOS LOCAIS 
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A aventura de INPUT é bem p: Ene 
as suas logo serão bem maiores que el a 3 
Se seguirmos as instruções das pági= 
nas 226 a 231, teremos um mapa que po- 
derá ser introduzido no computador. O 
mapa da nossa aventura tem 24 locais 
(6x4) e apenas 12 deles são utilizados. 
Podemos aproveitar o programa origi- 
nal — o que dá menos trabalho, mas 
exige mais habilidade — ou escrever um 
novo — o que envolve mais esforço, 
porém menos confusão. Se você 
escolher a primeira alternativa, 
deverá carregar o programa ori- 
ginal da fita ou listá-io através 
da impressora. As modifica- 
ções dependerão do tama- 
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nho do novo mapa. Se ele for menor ou 
igual ao antigo, conserve a numeração 
original. Caso contrário, será preciso fa- 
zer um novo desenho, nmimerando-o se- 
gundo os mesmos princípios. 


mma DSi (é) (5) 


Pronto o mapa, você deverá fazer no- 
vas descrições dos locais. Elas vão subs- 
tituir as antigas, que ficavam a partir da 
linha 5000, no programa. 

Após cada descrição, informe as pos- 
síveis saídas do local, usando as variá- 
veis N, S, E e W, que correspondem a 
norte, sul, leste e oeste. Elas podem con- 
ter os valores 1 e O. O significa que não 
há saída naquela direção, enquanto 1 
quer dizer o contrário. O esforço de di- 
gitar linhas REM indicando os locais po- 
de valer a pena. 

Em seguida, modifique as linhas 330 
a 350 que contêm ON...GOSUB. O pri- 
meiro número que se segue ao GOSUB, 
na linha 330, se refere à linha onde o 
computador vai encontrar a descrição 
do local 1. Se não houver local 1 na sua 
aventura (não é preciso incluir todas as 
posições do mapa), O é usado. O próxi- 
mo número se refere à descrição do lo- 
cal 2, e assim por diante. Cada posição 
do mapa deve ter seu número. 





MOVIMENTO 


Se o tamanho do mapa for diferente 
do original, você precisará alterar as li- 
nhas 1000 a 1040 da rotina de movimen- 
to. Mais especificamente, as linhas que 
se referem às direções norte e sul — 1010 
e 1030 — devem ser modificadas se o 
mapa não tiver seis posições de largu- 
ra. Isto porque, para seguir nestas dire- 
ções, subtraimos ou adicionamos 6 ao 
número do local. A nova largura do ma- 
pa deve substituir o 6. 


OBJETOS | 


Grandes modificações deverão ser 
feitas nas linhas 160 a 260, pois os ob- 
jetos certamente serão diferentes. 

O número de objetos da nova aven- 
tura dá o vajor da variável NB; deve ser 
o primeiro elemento na linha DATA 
200. Ele terá a função de dimensio- 
nar as matrizes na linha 180 e de 
determinar ,o tamanho de laços 
FOR...NEXT em vários pon- 
tos do programa. 

Se usarmos uma linha 
DATA para cada objeto, O H 
programa ficará mais cla- 
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ro. No entanto, se o número de objetos 
for muito grande, pode-se optar por co- 
locar mais de um por linha. Em todo ca- 
so, a ordem deve ser precisa, pois cada 
grupo de três dados contém elementos 
de três diferentes matrizes. A ordem é: 
número do local onde se encontra o ob- 
jeto, descrição curta e descrição longa. 
Se o objeto só aparece mais tarde na 
aventura — após ser encontrado, por 
exemplo, como o olho — ou se surge ao 
acaso, como o fiscal da Receita, o nú- 
mero do local deve ser zero. 





NOVAS PALAVRAS 


É preciso preparar uma lista de todas 
as palavras permitidas ao jogador. Ela 
deve incluir comandos simples, como 
“AJUDAR" e “LISTAR”, bem como 
comandos com duas palavras, tais co- 
mo “PEGAR LAMPADA” e “MA- 















TAR SENHORIO”, 

Os comandos de duas palavras divi- 
dem-se em V$e N$ — verbo e substanti- 
vo, respectivamente —, embora nem 
sempre de acordo com a definição gra- 
matical. Vamos considerar todos os co- 
mandos simples e todas as primeiras 
palavras dos comandos compostos como 
sendo verbos. Eles devem ser agrupados 
de acordo com seu significado — “MAS- 
TIGAR” e “COMER”, ou ''CHEI- 
RAR” e “FAREJAR”, por exemplo, 
ficarão juntos. Cada um desses grupos 
terá um número — anote-os, pois será 
difícil decorar a que grupo de palavras 
correspondem. 

Agora vamos alterar o programa. A 
rotina que trata dos verbos vai da linha 
110 a 150. Os verbos devem ser coloca- 
dos — cada qual seguido de seu núme- 
ro — nas linhas DATA 140 e 150, 

Não se esqueça de redimensionar as 
matrizes, na linha 130, de acordo com 
o número total de verbos utilizados. 





ROTINAS QUE ENTENDEM OS VERBOS 


Cada categoria — ou número — de 
verbo vai precisar de uma rotina dife- 
rente. 

É difícil dar instruções específicas a 
respeito dessas rotinas, porque um ver- 
bo usado em uma aventura pode não 
servir para nada em outra. 

Contudo, algumas rotinas — como 
“PEGAR” e “LARGAR” — podem 
ser úteis em qualquer aventura. Você 
não precisará modificá-las, a menos que 
o roteiro de seu jogo seja muito inova- 
dor. Da mesma forma, não será neces- 
sário alterar a rotina “LISTAR"', nas 
linhas 1070 a 1130, caso os nomes das 
matrizes e a variável NB (número de ob- 
jetos) permaneçam os mesmos. 

Uma rotina que sempre permite adap- 
tações é a da lâmpada, já que situações 
que envolvem acendê-la são muito co- 
muns em aventuras. 

As rotinas restantes, de um modo ge- 
ral, não podem ser aproveitadas. Você 
precisará, assim, escrever novas rotinas. 
Ao fazê-lo, lembre-se de que uma das 
finalidades é verificar se o Jogador es- 
colheu corretamente o objeto e o local 
para executar aquilo que o verbo indi- 
ca. Se o local não é adequado, o pro- 
grama deve orientá-lo com mensagens 
do tipo “AQUI NÃO”. Seja qual for 
o resultado da ordem dada, o jogador 
precisa ser informado — isto é, qualquer 
palavra que entre no computador deve 
provocar uma mensagem. 

Depois de planejar as rotinas de exe- 
cução das ordens verbais, coloque-as no 
programa. Se seu programa tem uma 


numeração parecida com a da aventura 
de INPUT, o lugar dessas rotinas é en- 
tre as linhas 1070 e 2999. 

O computador selecionará a rotina 
correspondente ao verbo usado pelo jo- 
gador. A linha 510 é a responsável por 
isso, e deverá ser modificada. Para tan- 
to, consulte os números de sua lista de 
verbos. Coloque, então, na frente do 
ON...GOTO, o endereço inicial das ro- 
tinas, na mesma ordem numérica da lis- 
ta dos verbos correspondentes. 





ROTINA DE AUXÍLIO 


A última rotina a ser modificada é a 
que trata de “AJUDAR” o jogador. 
Verifique onde esse auxílio é necessário 
e use IF... THEN para dar uma mãozi- 
nha ao aventureiro. 

Outras características da aventura 
original devem ser modificadas ou eli- 
minadas, conforme as exigências do no- 
vo jogo. E o caso, por exemplo, da 
rotina que faz o coletor de impostos 
aparecer. Há também a alternativa de 
começar O jogo em uma posição diferen- 
te; para isso, basta alterar a linha 280. 





LISTA DE VARIÁVEIS 


Para que você entenda melhor o fun- 
cionamento do programa original, fize- 
mos uma lista das variáveis e matrizes 
por ele utilizadas. 


R$0 matriz contendo os verbos e 
respostas do jogador. 
RO matriz de números de verbos. 


Elementos correspondentes das duas ma- 
trizes acima referem-se ao mesmo verbo. 


OB( matriz com o número do local 
onde se encontra o objeto. 

OBSO matriz com a descrição curta do 
objeto. 

SI$0) matriz com a descrição longa 
do objeto. 


Elementos correspondentes das três ma- 
trizes acima referem-se ao mesmo objeto. 
NB número de objetos da aventu- 
ra, usado para dimensionar 
matrizes e tamanhos de laços 
FOR...NEXT. 

L local onde o jogador se encon- 
tra no momento. 

sinalizador do estado da lâmpa- 
da; contém 1, se a lâmpada es- 
tá acesa, e 0, se está apagada. 
sinalizador do coletor de im- 
postos. 


LA 


TA 


N,8,E,W saídas de um local; contém 1, 
se há saída naquela direção,e 0, 
se não há. 

I$ entrada ou resposta completa 
do jogador, antes de ser dividi- 
da em verbo e substantivo. 


v$ verbo em IS, 

N$ substantivo em IS. 

I contém um número correspon- 
dente a um verbo; usado para 
selecionar a rotina de execução 
adequada. 

IN número de objetos que estão 
sendo carregados pelo jogador. 

AS resposta à pergunta “Quer jo- 


gar novamente?” 

G contém o número do objeto 
deixado de lado pelo jogador 
— que é o elemento G na ma- 
triz OB. 


O funcionamento do programa do 
Spectrum é um pouco diferente, devido 
à ausência de comandos ON...GOSUB 
e ON...GOTO nesta máquina. Não há 
desvantagem nisso. O programa funcio- 
na muito bem e sua modificação não 
apresenta maiores dificuldades. 





DESCRIÇÕES DOS LOCAIS 


O primeiro passo para adaptar o pro- 
grama do Spectrum é incluir as descri- 
ções dos locais de seu novo mapa. 

Elas são colocadas no final do pro- 
grama, da mesma forma que na aven- 
tura original. Devem permanecer em 
ordem e seguidas da linha que contém 
as saídas — variáveis N, S, Ee W, cor- 
respondendo a norte, sul, leste e oeste, 
acompanhadas dos números 1 ou 0, in- 
dicando se há ou não saída naquela di- 
reção. Não se esqueça das linhas REM, 
para saber onde está cada descrição na 
listagem. 





NOVAS PALAVRAS 


Faça uma lista de todas as palavras 
que o jogador poderá usar durante o jo- 
go. Neste momento, interessam particu- 
larmente os verbos — a primeira palavra 
em um par, ou palavras usadas isolada- 
mente e que nem sempre são verbos no 
sentido gramatical. Reúna as palavras 
que têm o mesmo sentido (e, portanto, 
o mesmo efeito no desenrolar da aven- 
tura), como ''PEGAR" e “APA- 
NHAR” ou “MATAR” e “ATIRAR”. 
Cada grupo precisará de um número. 
Inclua-os também na lista. 
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Os verbos seguidos de seus números 
devem ser colocados nas linhas DATA 
140 e 150. Não se esqueça de deixá-los 
entre aspas. 

Deveremos ainda redimensionar as 
matrizes na linha 120 e ajustar o tama- 
nho do laço FOR...NEXT, na linha 130, 
de acordo com o número de palavras 
utilizadas. 


ROTINAS QUE ENTENDEM OS VERBOS 





Cada categoria de verbos precisará de 
uma rotina. 

É difícil dar instruções específicas so- 
bre elas, uma vez que quase sempre ser- 
vem apenas ao jogo de origem. Todavia, 
algumas das rotinas da aventura de IN- 
PUT podem ser utilizadas, pois são co- 
muns a quase todos os jogos desse 
tipo. 

É o caso de “PEGAR” e “LAR- 
GAR": fundamentais para o uso dos 
objetos, serão inteiramente aproveita- 
das. A rotina que executa a ordem 
“LISTAR” também é aproveitável, ser- 
vindo à maioria dos jogos. Sua aventu- 
ra ficará bem estranha sem uma função 
desse tipo. 

As demais rotinas dependem das exi- 
gências do seu jogo. Para ter uma orien- 
tação, observe como programamos as 
rotinas do nosso jogo. Preste atenção 
nos locais e nos objetos sobre os quais 
um determinado verbo pode ter ação. 

As rotinas devem ser capazes de ve- 
rificar se o local e os objetos da ação são 
apropriados. Devem também estar pre- 
paradas para informar os resultados ao 
jogador, imprimindo mensagens de er- 
ro quando ele pedir coisas proibidas. 

Uma vez escritas, as rotinas ocupa- 
rão o espaço entre as linhas 1390 e 2999, 
inclusive. O computador selecionará es- 
sas rotinas de acordo com o verbo usa- 
do pelo jogador. 





A MATRIZ G 


O Spectrum guarda as descrições dos 
locais e as linhas das rotinas dos verbos 
dentro da matriz G. 

O próximo passo consiste, assim, em 
colocar os números das linhas iniciais 
das rotinas em G. As linhas 40 a 70 con- 
têm os números. As primeiras três linhas 
referem-se às descrições dos locais. A úl- 
tima contém os números das linhas ini- 
ciais das rotinas dos verbos. 

As dimensões da matriz G dependem 
do número de linhas DATA e de quan- 
tos números a linha DATA mais longa 
contém. O primeiro índice no comando 
DIM G (M,N), ou seja, N, corresponde 





ao tamanho da linha DATA mais lon- 
ga. O segundo, M, à quantidade destas 
linhas. 

Coloque todos os dados nas linhas de 
40 a 70 — se eles forem muitos, use nú- 
meros de linha intermediários. Verifique 
quantos números estão incluídos na li- 
nha mais longa. Acrescente às linhas 
mais curtas tantos zeros quantos forem 
necessários para que fiquem do mesmo 
tamanho. Não se esqueça das vírgulas. 

Se os números estiverem corretamen- 
te colocados em G, as linhas 330 a 350 
vão selecionar a descrição adequada ao 
local onde se encontra o jogador. O se- 
gundo índice da matriz corresponde à li- 
nha onde se encontra o número. 
Verifique se os índices estão corretos em 
cada comando GOTO de seu novo pro- 
grama, especialmente se você aumentou 
o número de linhas DATA. 


| MOVIMENTO 


Se o tamanho do mapa de sua aven- 
tura for diferente, as linhas 1000 a 1040 
deverão ser modificadas, pois tratam do 
movimento do jogador. 

Mais especificamente, as linhas que 
tratam de movimentos para o norte e 
para o sul — 1010 e 1030 — precisam 
ser alteradas se seu mapa não tiver seis 
locais de largura. A nova largura deve 
substituir o número 6. 


| OS OBJETOS z 


Grandes alterações deverão ser feitas 
nas linhas 160 a 260, uma vez que seus 
objetos serão diferentes dos da nossa 
aventura. 

Anote o número de objetos e o com- 
primento das maiores descrições (tanto 
das curtas quanto das longas). O núme- 
ro de objetos deve ser o primeiro valor 
da linha DATA 200; será usado como 
índice nos comandos DIM referentes às 
matrizes de objetos — linha 180 — e pa- 
ra determinar o tamanho de diversos la- 
ços FOR...NEXT. O segundo índice da 
matriz B$ é o comprimento da maior 
descrição curta e o segundo índice em 
SI$, o da maior descrição longa. 

Se usarmos uma linha DATA para 
cada objeto, o programa ficará mais cla- 
ro. No entanto, se o número de objgtos 
for muito grande, pode-se optar por co- 
locar mais de um por linha. Em todo ca- 
so, a ordem deve ser precisa, pois cada 
grupo de três dados contém elementos 
de três diferentes matrizes. A ordem é: 
número do local onde se encontra o ob- 
jeto, descrição curta e descrição longa. 
Se o objeto só aparece mais tarde na 





aventura — após ser encontrado, por 
exemplo, como o olho — ou se surge ao 
acaso, como o fiscal da Receita, o nú- 
mero do local deve ser O. 


ROTINA DE AUXÍLIO 





Esta é a última rotina a ser altera- 
da. Verifique onde pode ser interessante 
“AJUDAR” o jogador. Use IF... THEN 
para fazé-lo. 

Outras características do jogo origi- 
nal, tais como a rotina que faz surgir de 
repente o fiscal da Receita — linha 320 

devem ser alteradas ou apagadas. 
Podemos também mudar o local onde 
começa a aventura, na linha 280. 





LISTA DE VARIÁVEIS 


Para estudar em maior profundida- 
de o nosso programa, use esta lista de 
variáveis. 

GO matriz contendo os números 
das linhas de descrição dos lo- 
cais e de execução de ordens do 
jogador — execução dos verbos. 
matriz com os verbos e respos- 
tas do jogador. 

matriz com os números dos 
verbos. 


R$Q 
RO 


Elementos correspondentes das duas ma- 
trizes acima referem-se ao mesmo verbo. 


B() matriz contendo o local onde 
cada objeto se encontra. 

BSO matriz com a descrição curta 
dos objetos. 

SISO matriz com as descrições longas. 


Elementos correspondentes das três ma- 
trizes acima referem-se ao mesmo objeto. 


NB número de objetos da aventu- 
ra. 

L posição do jogador. 

LA sinalizador de estado da lâm- 


pada. 
id saídas de um local. 
resposta completa do jogador. 


vs verbo em IS. 

N$ substantivo em IS. 

| contém um número correspon- 
dente a um grupo de verbos. 

IN número de objetos carregados 
pelo jogador. 

AS contém a resposta à pergunta 
“Quer jogar novamente?” 

G contém o número do objeto 


deixado de lado pelo jogador — 
elemento G da matriz B. 












Quase todos os micros possuem 
comandos que facilitam a edição de 
programas em BASIC, mas o comando 
EDIT das linhas TRS-80 e TRS-Color é um 
dos mais sofisticados. Aprenda a utilizá-lo. 


Como você já deve ter observado, é 
muito raro um programa rodar corre- 
tamente pela primeira vez. Mensagens 
de erro, ou problemas que ocorrem du- 
rante a execução, tornam imperativo o 
teste repetido de um programa, até que 
todos os erros tenham sido eliminados. 

Esse processo, chamado de depura- 
ção, é em geral trabalhoso e demorado, 
sobretudo se as linhas erradas tiverem 
que ser inteiramente digitadas. Quase 
todos os microcomputadores possuem 
algum tipo de editor de linhas para agi- 
lizar o processo de correção de progra- 
mas. O sistema disponível nos micros 
das linhas TRS-80 e TRS-Color tem um 
funcionamento um pouco complicado, 
mas é um dos mais completos. Neste ar- 
tigo, você verá como explorar eficien- 
temente os recursos de edição que seu 
micro lhe oferece. 

Suponhamos, por exemplo, que vo- 
cê acabou de descobrir um erro de sin- 
taxe na linha 20 de seu programa. Para 
acionar o editor de linhas, digite EDIT 
20 e pressione a tecla < ENTER >. Nos 
computadores da linha TRS-Color, apa- 
recerá logo abaixo a linha indicada e, em 
seguida, outra linha, contendo apenas 
o número e o cursor de posicionamen- 
to. Nos micros da linha TRS-80, o co- 
mando EDIT não mostrará a linha er- 
rada, a não ser que você pressione a te- 
cla L uma vez. 


20 X=BRND (1 
20 


Como você pode notar, o erro con- 
siste na falta do parêntese à direita. 

O computador agora está em modo 
de edição, e você poderá fazer as altera- 
ções que quiser na linha apresentada na 
tela. Caso desista de editá-la, simples- 
mente pressione a tecla <ENTER> 
uma vez ou, então, a tecla E (abreviatu- 
ra de END — fim, em inglês), e o com- 
putador voltará ao modo de comando. 





Uma vez que a linha desejada esteja 
pronta para ser corrigida, você poderá 
utilizar uma série de comandos de edi- 
ção. É neste ponto que os principiantes 
correm o risco de se confundir, pois pa- 
ra acionar os comandos pressiona-se 
uma única tecla alfabética (cujo resul- 
tado não aparece na tela) ou, então, um 
número de um ou mais dígitos, seguido 
da tecla alfabética. 

No exemplo anterior, a correção con- 
siste em acrescentar um parêntese ao fi- 
nal da linha. Para isso, pressione a te- 
cla X, que aciona o comando de eXten- 
são de linha; o cursor pulará automati- 
camente para o final da linha 20: 


20 X=RND (1 
20 X=RND (1. 


Agora você pode digitar o parêntese 
que falta, pois o computador automa- 
ticamente entra em modo I, ou de inser- 
ção. Para terminar a linha e sair do mo- 
do de edição, pressione <ENTER>. 
Não pressione E, pois o computador 
adicicnará esta letra ao final da linha: 
os comandos de edição só valem quan- 
do o modo I está desligado. 

Vamos ver agora um caso mais com- 


E 








x “COMO TIRAR O MÁXIMO 

DO COMANDO EDIT 
E MODIFICAÇÃO DE CARACTERES 
EE PROLONGAMENTO DE UMA LINHA 
E | PROCURA DE UM CARACTERE 


plicado. Suponhamos que você queira 
modificar a linha seguinte, inserindo um 
novo caractere em algum ponto: 


50 X=0:Y=0:W=363 


O valor atribuído à variável X deve- 
ria ser, por exemplo, 20 e não 0, como 
está. Para fazer a modificação, digite 
EDIT 50 e pressione < ENTER>. A li- 
nha 50 aparecerá na tela e o cursor logo 
em seu início. Você precisará deslocá- 
lo até a posição anterior ao primeiro ze- 
ro, na linha, para poder inserir o novo 
caractere (no caso, um 2). Existem três 
maneiras de fazer esse deslocamento. A 
primeira consiste em pressionar repeti- 
damente a barra de espaço: cada vez que 
ela é pressionada, O cursor avança uma 
posição, e na tela aparece o caractere da 
posição seguinte. A segunda consiste em 
dizer ao editor quantos caracteres deve 
pular, digitando este número, seguido 
de uma pressão à barra de espaço. No 
terceiro método, pressiona-se a tecla S 
(de Search — procurar, em inglês), se- 
guida do caractere para o qual você quer 
deslocar o cursor. 
" No exemplo acima, precisamos des- | 
locar o cursor para a posição anterior | 





ao primeiro zero da linha. Bata duas ve- 
zes na barra de espaço ou, então, digite 
o número 2, seguido de uma pressão à 
barra; se preferir, pressione a tecla S e, 
em seguida, a tecla O. Seja qual for o 
método utilizado, o cursor ficará posi- 
cionado logo após o sinal de igual. Ago- 
ra, para inserir o número 2, você deve 
entrar em modo de inserção. Para isso, 
pressione a tecla I uma vez; em segui- 
da, acrescente o que quiser à linha. Di- 
gite normalmente as adições (pode-se 
usar, inclusive, o retrocesso). Pressione 
a tecla < ENTER> para sair do modo 
de edição, uma vez que tenha comple- 
tado a inserção. 

Caso você precise fazer outras corre- 
ções na linha (por exemplo, acrescentar 
o número 1 antes do segundo zero, de 
modo a transformar em 10 o valor de 
X), deverá continuar no modo de edi- 
ção. Para sair do modo de inserção e 
voltar ao modo de edição, pressione si- 
multaneamente as teclas <SHIFT> e 
1. Com isso, você poderá deslocar o cur- 
sor até o segundo zero da linha, usando 
um dos três métodos explicados acima, 
digitar 1 para inserir e, finalmente, di- 
gitar o número 1. 

Algumas vezes, é necessário substituir 
caracteres, e não acrescentar outros. Eis 
aqui um exemplo: 

70 PRINT "EDIYORA NOVA CULTURA 
| Mod 


Chame o comando EDIT e posicio- 
ne o cursor sobre a letra errada (Y). Pa- 
ra substituí-la pelo T, pressione uma vez 
a letra € (de Change — mudar, em in- 
glês) e, em seguida, a letra correta. Se vo- 
cê quiser mudar mais de um caractere, 
acione novamente a tecla € ou, então, 
o número de caracteres, seguido da te- 
cla €, Caso precise substituir, por exem- 
plo, três letras consecutivas, coloque o 
cursor sobre a primeira e digite 3€. 

Para apagar uma letra, ou uma série 
de letras, coloque o cursor sobre o ca- 
ractere que pretende apagar e pressione 
a letra D. Nos computadores da linha 
TRS-Color, o caractere indicado desa- 
parecerá da tela e os demais serão des- 
locados para a esquerda, fechando o 
“buraco”. No TRS-80, o caractere apa- 
gado será exibido entre dois sinais de ex- 
clamação. Para apagar vários caracte- 
res, digite o número de caracteres que 
quer eliminar, seguido da tecla D. Co- 
locando o cursor no primeiro E e pres- 
sionando 7D, por exemplo, você apaga- 
rá a palavra EDIYORA. 

Também é fregiiente a necessidade de 
apagar toda a parte final de uma linha. 
| Suponhamos que você queira apagar o 
| comando PRINT da linha abaixo: 





10 X=89:7=76:PRINT "CX E Y DEFIN 
IDOS* 


Entre em modo de edição e coloque 
o cursor até o ponto da linha a partir 
do qual se encontram os caracteres que 
deseja apagar (no exemplo, o segundo 
sinal de dois pontos). Em seguida, pres- 
sione a tecla H (abreviatura de Hack— 
podar, em inglês) e o resto da linha de- 
saparecerá. Este comando também en- 
tra no modo de inserção, permitindo 
que você acrescente algo à linha ou que 
abandone o modo de edição, pressio- 
nando (ENTER). 

Você pode também apagar partes de 
uma linha utilizando o comando K (de 
Kill — matar, em inglês). Ele elimina ca- 
racteres sucessivamente, até que seja en- 
contrada a primeira ocorrência do ca- 
ractere especificado. Se você digitar, por 
exemplo, KD, eliminará todos os carac- 
teres entre a posição do cursor e a pri- 
meira ocorrência da letra D, na linha. 
Caso digite 3KD, apagará tudo até a ter- 
ceira ocorrência de D. 

Depois de fazer algumas modifica- 
ções em uma linha, liste-a, ainda den- 
tro do modo de edição, para ver como 
ficou. Para isso, digite a tecla L. 

Se você cometeu algum erro e deseja 
cancelar todas as modificações feitas, di- 
gite a tecla A (Again — novamente, em 
inglês); o cursor retornará ao seu início. 
O comando Q (Quit — abandonar, em 
inglês) faz a mesma coisa, mas sai do 
modo de edição. 

Para se exercitar um pouco, digite o 
programa abaixo: 


10 CLS 

20 PRINT 

30 PRINT "NU, MERO”,”"CUBO” 
40 FOR A=1 TO 13 STEP 2 
50 PRINT A,*A*A 

60 NEXT 

70 PRINT “ESTE E' O FIM 


Ele contém alguns erros; seu aspecto 
final deverá ser o seguinte: 


10 CLS 
20 PRINT “TESTE” 

30 PRINT "NUMERO", "CUBO” 
40 FOR A=1 TO 13 

50 PRINT A,A*A*A 

60 NEXT 
70 PRINT 


Para alterar o programa, procure 
usar todos os comandos de EDIT que 
aprendeu. Eis aqui a notação abrevia- 
da das modificações que poderá tentar: 


“FIM” 


X" TESTE” [ENTER] 
s,D [ENTER) 


EDIT 20 
EDIT 30 
EDIT 40 
EDIT 50 | 
EDIT 70 « 





Sumário dos 
comandos de EDIT 


L 


C caractere 


nC caracteres 


| S caractere 


nS caractere 
K caractere 
nkK caractere 


<ESPAÇO> 


n< ESPAÇO > 


<SHIFT> 1 


<ENTER> 


Lista a linha 
Muda caractere 


Muda os próximos n 
caracteres 


Insere caracteres 


Apaga um caractere 


Apaga n caracteres | 


Apaga o restante da | 
linha e entra em 
modo de inserção 


Entra em modo de 
inserção ao final 
da linha 


Procura a primeira 
ocorrência do 
caractere 


Procura a n-ésima 
ocorrência do 
caractere 


Apaga tudo até a 
primeira ocorrência 
do caractere 


Apaga tudo até a 
n-ésima ocorrência 
do caractere 


Avança o cursor 
uma posição 
Avança o cursor 
n posições 

Recua o cursor de 
uma posição 


Recua o cursor de 
n posições 


Sai do modo de 
inserção e volta ao 
modo de edição 


Sai do modo de | | 
edição e inserção 
Sai do editor 


Retorna ao início 
da edição 


Retorna ao início 
da edição e sai do 
editor. 

















VOLUME I Continuação 1 


ss PR ps 


Pág. 6 - 2º col. - quadro 
Corrigir a 2º linha de códigos numé- 
ricos. Onde se lê: 
151 131 190 176 280 
Leia-se: 
151 131 191 176 280 


Pág. 24 - 2º col. - programa 
Para funcionar no TRS-80, substitua 
a linha 8 por: 


8 CLS 


Pág. 30 - 1º col. - 1º programa 
Corrija a linha 40: 


40 IF K$="F” THEN M=374 ELSE 
GOTO 30 


Pág. 31 - 2º col. - 3º parágrafo 
Onde se lê: 

O programa para o TRS-80 funciona 
de modo idêntico ao programa para o 
TRS-Color. 

Adicione: 

..com exceção do fato de que as teclas 
a serem pressionadas são L e R, respecti- 
vamente, para comandar movimentos à 
esquerda e à direita. 


Pág. 33 - 3º col. - programa 
Corrija a linha 150: 


150 IF P0>1022 OR PO<O THEN PO= 
LP:GOTO 50 


Pág. 62 - 1º col. - programa 
O logotipo não se aplica a este 
programa 


Pág. 63 - 2º col. - penúltimo parágrafo 
Onde se lê; 

«para o TRS-80 e TRS-Color. 
Leia-se: 

«para o TRS-Color. 


Pág. 224 - 1º e 2º col. - programa 
Adicione: 

O programa indicado funciona apenas 
no TRS-Color. Para executá-lo no 
TRS-80 faça as seguintes modificações: 
multiplique por dois todos os números de- 
pois dos comandos PRINT, nas linhas 
10, 20, 30, 60, 90 e 110; suprima as linhas 
15 e 120 e adicione a linha: 

95 TIMER=TIMER+0.1 


Pág. 270 a 275 

Todos os programas indicados para o 
TRS-Color também funcionam no 
TRS-80. 


o E 


Pág. 19 - 2º col. - programa 
Corrija a linha: 


430 RESTORE:FOR J=0 TO N-1:READ 
AS H PRINT4&-P , STRINGS (LL-ML , E =) ' 
SPS;:PRINT4-P,MID(AS,2); 

CHR$ (13); 


Pág. 31 - 2º col. - 3º parágrafo 
Onde se lê: 

A linha 50 investiga se “L” foi pres- 
sionada.....A linha 70 confere se “R” foi 
pressionada... 

Leia-se: 

A linha 50 investiga se “E” foi pres- 
sionada.....A linha 70 confere se “D” foi 
pressionada... 


Pág. 45 - 12 col. - 5º parágrafo 
Onde se Iê; e 

«apenas os das linhas TRS-80 e MSX... 
Leia-se: 

apenas os das linhas TRS-80, TRS- 
Color e MSX... 


Pág. 65 - 1º col. - programa 
Corrija a linha 420 para: 


420 LET K$=INKEY$S:IF K$="" THEN 
GOTO 420 


Pág. 90 - 3º col. - 4º parágrafo 

Onde se lê; 

«limitar a memória em $H3680...que se 
reserve memória só até $H3680....só po- 
derá usar o CLEAR até $H1E80. 
Leia-se: 

«limitar a memória em &H3680...que se 
reserve memória só até &H3680....só po- 
derá usar o CLEAR até &H1E80. 


Pág. 219 - 2º col. - 3º parágrafo 
Onde se lê: 

PSHB armazena temporariamente... 
Leia-se: 

PSHS armazena temporariamente... 


— PRESS 


Pág. 10 - 3º col. - 3º parágrafo 
As linhas 20 HTAB 18... 

LOCATE.... 

estão trocadas de lugar. 


e 20 


Pág. 16 - 12 col. - programa 
Substitua a linha 140 por: 
140 GoTo 80 


Pág. 30 - 1º col. - programa 
Corrija a linha 60: 
60 LOCATE 18,M:PRINT "*" 


Pág. 32 - 2º col. - 2º parágrafo 
Onde se lê: 

O jogo termina quando a tecla CLEAR 
(código 26)... 

Leia-se: 

O jogo termina quando a tecla ESCA- 
PE (código 27)... 


Pág. 33 - 1º col. - 1º parágrafo 
Adicione: 

Nos micros da linha MSX, as teclas 
a serem utilizadas para deslocamento da 
base e disparo são as flechas do cursor 
e da barra de espaços, repectivamente 
e aos códigos 28, 29 e. 

) 


Pág. 58 - 3? col. - programa 
Corrija a linha 330: 


330 LOCATE 2+X*3,18:PRINT USING : 
"4"5N; 


Pág. 73 - 1º col. - programa 
Corrija as linhas: 
20 CLEAR 5000:R$="P RMCAI” 
30 CLS:LOCATE 5,1:PRINT"M E NU 
PRINCIPAL 


Pág. 74 - 2º col. - programa 

Corrija a linha: 
10020 INS=INKEY$S:IF IN$="" THEN 
10020 


Pág. 84 - 2º col. - programa 
Corrija a linha: 


3020 INS=INKEYS:IF INS="" 
3020 


THEN 


Pág. 85 - 1º col. - programa 
A linha 5070 tem esta redação: 
5070 IFD>NR AND G=1 THEN Gr=0: 


CH=-1 ELSE IF D>NR THEN 5230 


Pág. 89 - 3º col. - 1º parágrafo 
Onde se lê: 

SPRITE(0) A$ 

Leia-se: 

SPRITE(0) = A$ 


Pág. 93 - 12 col. - programa 
Corrija a linha: 
2580 POKE SA,VAL("&H0"+8S8) 


Pág. 107 - 2º col. - penúltimo parágrafo 
Pág. 119 - 3º col. - 2º parágrafo 

É possível desenhar letras e gráficos 
na mesma tela do MSX, porém usamos 
o comando DRAW neste programa, de 
modo a compatibilizá-lo com as versões 
para outros computadores. 


Pág. 120 - 3º col. - último parágrafo 
Onde se lê: 

As cores disponíveis no PMODE 3,1 
são: 

verde (1), amarelo (2), azul (3) e verme- 
lho (4). 

Leia-se: 

As cores disponíveis para todos os 
SCREEN no MSX são: (1) preto, (2) 
verde, (3) verde claro e.(4) azul escuro. 


Continua no próximo número 


APLICAÇÕES 
Com um programa especial, seu computador poderá ajudá-lo 
a executar belíssimos trabalhos gráficos. Experimente-o. 


CÓDIGO DE MÁQUINA 
Um Assembler para o MSX: deixe que o computador faça por você 
a tradução dos mnemônicos Assembly para hexadecimal. 


CÓDIGO DE MÁQUINA 
Mesmo sem conhecer código de máquina, você pode animar seus jogos 
com figuras simples. Veja como é fácil. 


PROGR 
e EA 


| ED) | 
U o) 


a; FE 


ig 


Es” 


Jo 


BRR 





